library(testthat)
library(rClr)
clrInit()
# Load the library with the C# part of things.

context("rClrTestCases")

cTypename <- "Rclr.TestCases"
testClassName <- "Rclr.TestObject";
# setRDotNet(TRUE)


expectedNumArray <- 1:5 * 1.1  
expect_that( clrCallStatic(cTypename, "CreateNumArray"), equals(expectedNumArray) );

testDateStr='2001-01-01'; numDays = 5;
expect_equal( clrCallStatic(cTypename, "CreateDateArray", testDateStr, as.integer(numDays)), expected = as.Date(testDateStr)+0:(numDays-1))
expect_equal( clrCallStatic(cTypename, "CreateIntArray", as.integer(numDays)), expected = 0:(numDays-1))

